home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
wedits22.zip
/
WETIME.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-08-13
|
1KB
|
51 lines
UNIT WETime;
{ -- This is the Low Level Time Unit of WWIVEdit 2.2
-- Last Updated : 8/13/91
-- Written By:
-- Adam Caldwell
--
-- This code is Public Domain
--
-- Purpose : Provide Time Functions
--
-- Known Errors : None
--
-- Planned Enhancements : None
--
-- }
{$R-,V-,S-,B-,E-,N-} { These Optomize things as much as possible }
INTERFACE
FUNCTION timer:LongInt; { Returns number of seconds past midnight }
FUNCTION time:string; { returns the time of day in 24 hr Format }
IMPLEMENTATION
USES WEString, DOS;
FUNCTION timer : LongInt;
{ Returns the number of seconds after midnight }
VAR
h,m,s,s100 : word;
BEGIN
gettime(h,m,s,s100);
timer := h*longint(3600)+longint(60)*m+longint(1)*s;
END;
FUNCTION Time:String;
VAR
h,m,s,s100:word;
ampm:string[2];
BEGIN
GetTime(h,m,s,s100);
IF h>=12
THEN ampm:='PM'
ELSE ampm:='AM';
IF h>12 THEN dec(h,12)
ELSE IF h=0 THEN h:=12;
Time:=cstr(h)+':'+ZExpand(m,2)+':'+ZExpand(s,2)+' '+ampm;
END;
END.